home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hunter 2006
/
Hunter 2006.iso
/
soft
/
sleipnir241.exe
/
{app}
/
scripts
/
ƒ†[ƒeƒBƒŠƒeƒB
/
ƒZƒLƒ…ƒŠƒeƒB‚Ì”½“].vbs
< prev
next >
Wrap
Text File
|
2006-06-15
|
616b
|
24 lines
' âAâNâeâBâué╚âyü[âWé╠âZâLâàâèâeâBé≡ö╜ô]é│é╣é▄é╖üB
Option Explicit
Dim obj, id
Set obj = CreateObject("Sleipnir.API")
id = obj.GetDocumentID(obj.ActiveIndex)
If id <> 0 Then
Dim js, java, rx, dx, pic, snd, video
js = obj.IsJavaScriptEnabled(id)
java = obj.IsJavaEnabled(id)
rx = obj.IsRunActiveXEnabled(id)
dx = obj.IsDownloadActiveXEnabled(id)
pic = obj.IsPictureEnabled(id)
snd = obj.IsSoundEnabled(id)
video = obj.IsVideoEnabled(id)
Call obj.SetSecurity(id, Not js, Not java, Not rx, Not dx, Not pic, Not snd, Not video)
End If
Set obj = Nothing